home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / hf.dir / 03009.ls < prev    next >
Encoding:
Text File  |  1996-04-19  |  2.9 KB  |  82 lines
  1. on compileAthleteDB
  2.   set the itemDelimiter to ","
  3.   set vMax to the number of lines in field "database"
  4.   repeat with vLine = 1 to vMax
  5.     put "Processing Line " & vLine && the long time
  6.     set vAth to item 2 of line vLine of field "database"
  7.     put "  Athlete #" & vAth
  8.     set vDBName to "DB" & vAth
  9.     set vDBCast to the number of cast vDBName
  10.     set vCat to item 6 of line vLine of field "database"
  11.     put "  Clear old info"
  12.     if the number of cast vDBName < 1 then
  13.       put "    Missing!"
  14.     end if
  15.     set the text of cast vDBCast to EMPTY
  16.     put "  AthleteName"
  17.     set vName to "AN" & vCat & vAth & ".PCT"
  18.     if the number of cast vName >= 1 then
  19.       put vName & "," & string(the number of cast vName) & RETURN after field vDBCast
  20.     end if
  21.     put "  Thumbnail"
  22.     set vName to "TN" & vAth
  23.     if the number of cast vName >= 1 then
  24.       put vName & "," & string(the number of cast vName) & RETURN after field vDBCast
  25.     end if
  26.     put "  Infobox"
  27.     set vName to "INFO" & vAth
  28.     if the number of cast vName >= 1 then
  29.       put vName & "," & string(the number of cast vName) & RETURN after field vDBCast
  30.     end if
  31.     put "  Cover"
  32.     set vName to "PO" & vAth
  33.     if the number of cast vName >= 1 then
  34.       put vName & "," & string(the number of cast vName) & RETURN after field vDBCast
  35.     end if
  36.     put "  Bio Pages"
  37.     set vPFix to "BIO" & vAth
  38.     set vNumPages to 10
  39.     repeat with vI = 1 to 10
  40.       set vName to vPFix & vI
  41.       if the number of cast vName < 1 then
  42.         set vNumPages to vI - 1
  43.         exit repeat
  44.       end if
  45.       put vName & "," & string(the number of cast vName) & RETURN after field vDBCast
  46.     end repeat
  47.     put vNumPages into item 1 of line vLine of field "database"
  48.     put "  Slides & Captions"
  49.     set vPFix1 to "IM" & vAth & "0"
  50.     set vPFix2 to "CAP" & vAth & "0"
  51.     set vNumSlides to 0
  52.     repeat with vI = 1 to 10
  53.       set vName to vPFix1 & vI
  54.       if the number of cast vName >= 1 then
  55.         put vName & "," & string(the number of cast vName) & RETURN after field vDBCast
  56.         set vNumSlides to vNumSlides + 1
  57.       end if
  58.       set vName to vPFix2 & vI
  59.       if the number of cast vName >= 1 then
  60.         put vName & "," & string(the number of cast vName) & RETURN after field vDBCast
  61.       end if
  62.     end repeat
  63.     put vNumSlides into item 3 of line vLine of field "database"
  64.     put "  Sidebars & Titles"
  65.     set vPFix1 to "SIDE" & vAth
  66.     set vPFix2 to "SBTITLE" & vAth
  67.     repeat with vI = 1 to 3
  68.       repeat with vJ = 1 to 5
  69.         set vName to vPFix1 & vI & vJ
  70.         if the number of cast vName >= 1 then
  71.           put vName & "," & string(the number of cast vName) & RETURN after field vDBCast
  72.         end if
  73.         if the number of cast vName >= 1 then
  74.           set vName to vPFix2 & vI & vJ
  75.           put vName & "," & string(the number of cast vName) & RETURN after field vDBCast
  76.         end if
  77.       end repeat
  78.     end repeat
  79.   end repeat
  80.   put "Done"
  81. end
  82.